home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc xi 93.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  1KB  |  34 lines
  1. 10 DV=PEEK(186):POKE53280,15:POKE53281,15:PRINT"":OPEN15,DV,15,"I0":CLOSE15
  2. 20 SYS53166
  3. 30 POKE53265,PEEK(53265)-16:POKE53272,PEEK(53272)OR8:POKE53265,PEEK(53265)OR32
  4. 40 X=1024:Y=16192:FORI=0TO999:POKEX+I,PEEK(Y+I):NEXT:POKE53265,PEEK(53265)+16
  5. 50 FORZ=1TO3500:NEXTZ:POKE53265,PEEK(53265)AND223:POKE53272,PEEK(53272)AND246
  6. 60 PRINT"[147] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  7. 70 PRINTTAB(5)"[144][212][208][213][199] [196]ISKETTED [201][196] (C) [215]O[195]/[193] [216][201]"
  8. 80 PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  9. 90 PRINT:PRINT"[158] [195]HOOSE [208]ROGRAM TO [204]OAD:"
  10. 100 PRINT:PRINT"[152][1] [209][215][203]IE [214]1.0"
  11. 110 PRINT"[2] 1541 [215]IZARD [214]1.1"
  12. 120 PRINT"[3] [213]NZIP 64"
  13. 130 PRINT"[4] [193]CE 64"
  14. 140 PRINT"[5] [193]CE 128"
  15. 141 PRINT"[6] [193]GONY & [212]EARS [206][212][211][195] [198]LI [208]IC"
  16. 142 PRINT"[7] [195]REEPER'S [201]NTERLACED [206][212][211][195][160][198]LI [208]IC"
  17. 143 PRINT"[8] [205][211]-[196]OS [195]OPY [214]1.42"
  18. 144 PRINT"[9] [205][199][205] [204]ION [193]NIMATION"
  19. 150 PRINT"[144][199]UIDI'S [204]OADER [214]2.4  (C)92/3 [211]TEVE [199]UIDI";
  20. 160 PRINT"[151]  [212][208][213][199] [212]ITLE [208]IC [196]RAWN [194]Y [211]TEVE [199]UIDI!"
  21. 170 GETA$:IFA$=""THEN170
  22. 180 IFA$="1"THENB$="BOOT*":GOTO240
  23. 190 IFA$="2"THENB$="1541*":GOTO240
  24. 200 IFA$="3"THENB$="UNZ*":GOTO240
  25. 210 IFA$="4"THENB$="ACE6*":GOTO240
  26. 220 IFA$="5"THENB$="ACE1*":GOTO240
  27. 221 IFA$="6"THENB$="AGON*":GOTO240
  28. 222 IFA$="7"THENB$="CREE*":GOTO240
  29. 223 IFA$="8"THENB$="MSDO*":GOTO240
  30. 224 IFA$="9"THENB$="MGM*":GOTO240
  31. 230 GOTO170
  32. 240 SYS53203
  33. 250 LOADB$,DV,1
  34.